﻿Public Class LoginRecepcion

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Dispose() 'VER LA DISPOSICION DE LA CONECCION
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rs As ADODB.Recordset ' CREAMOS UN OBJETO DE TIPO ADO  PARA LA CONECCION
        Dim sql As String ' 
        sql = "Select *from USUARIO WHERE CODI_ADMIN='" & txtUsuario.Text & "'" 'PERMITE OBTENER LA SELECCION DE LA TABLA USUARIO Y EL CAMPO CODIGO_ADMINITRADOR PARA LA RESPECTIVA CONSULTA
        rs = coneccion.Execute(sql) 'EJECUTA LA CONECCION

        If rs.EOF <> True Then 'ESTO NOS DA UN VALOR BOOLEANO DE TIPO FALSO  MIENTRAS QUE EXISTA LOS DATOS CONSULTADOS
            rs.MoveFirst() 'NOS PERMITE MOVER EL PRIMER REGISTRO Y LEERLO 
            If txtCodigo.Text = rs.Fields(1).Value.ToString Then 'EVALUA SI EL TEXTO INGRESADO ES LA MISMA EN LA QUE ENCONTRAMO EN LA TABLA USUARIO EN LA COLUMNA 1
                Me.Hide() 'CIERRE LA APLICACION
                Recepcion.Show() 'MUESTRA LA APLICAION RECEPCION
            Else
                MsgBox("Error") 'MENSAJE DE ERROR SINO CUMPLE CON LA CONDICION DE INGRESO DE CODIGO DE USUARIO
            End If
        End If
    End Sub

    Private Sub frmRecepcion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conectar() 'PERMITE INICIALIZAR LA CONECCION
    End Sub
End Class